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HISTORICAL PERSPECTIVE 

FORTH was created by Mr Charles H. Moore in 
1969 at the National Radio Astronomy Observatory, 
Charlottesville, VA. It was created out o( dissatisfaction 
with available programming tools, especially for obser- 
vatory automation. 

Mr Moore and several associates formed FORTH, 
Inc. in 1973 (or the purpose of licensing and support of 
the FORTH Operating System and Programming Lan- 
guage, and to supply application programming to meet 
customers' unique requirements. 

The Forth Interest Group ts centered in Northern 

California Our membership is over 2,400 worldwide. It 
was formed in 1 978 by FORTH programmers to encour- 
age use of the language by the interchange of ideas 
through seminars and publications. 



EDITOR'S COLUMN 

The feedback on our new applications editorial 
policy is all positive. To date, we are receiving a nice 
variety of articles. I want to urge our members not to 
slack off. In order to keep up a steady flow of quality 
output, we need quality input— IN QUANTITY. 

If you have an article you have been meaning to 
write, please get it down and send it in. If you havr an 
application, programming trick or tool that you iiave 
found useful, please share it with our members. 
Remember: YOU DONT HAVE TO BE A WRITER-our 
staff is set up to help you with whatever you need to 
make your idea publishable. 

Please send all submissions to: 

Editor 

FORTH DIMENSIONS 

P.O. Box 1 105 

San Carlos, CA 94070 

HEX is back this month, and there are photos of the 
Rochester Conference courtesy of George W. Shaw, ii 
We are always looking tor photos (black and white or 
color prints preferred) and cartoon ideas, too. 

Starting neict edition. FORTH DIMENSIONS will 
have a marketing column In a question and answer 
format. If you have had ideas, programs, etc., that you 
wondered how to sell, this column will be for you. 
Please direct your marketing questions to the above 
address. Questions of general interest will be an- 
swered in this column by experts chosen for their 
knowledge of marketing and computer hardware and 
software. 

C. J. Street 
Editor 

PUBLISHER'S COLUMN 

Lots of good news! The reaction to the application 
orientation of FORTH DIMENSIONS has been very 
positive. Thanks to our editor, Carl Street. The more 
articles you send Carl, the closer we come to being 
able to go monthly. Our plans are to make FORTH 
DIMENSIONS more general interest and publish high 
level (sic) technical material twice a year, a la, 1980 
FORML Proceedings. 

Plans for the 1981 FORML (FORTH Modification 
Laboratory) Conference are underway. Refer to page 
63 for more details. The FIG National Convention will 
be on Saturday, November 28th in the San Francisco 
Bay Area. Make your plans. 

Now, some bad news' We have to raise some of our 

prices. It's been a couple of years since we've done 
any price adjusting and cost increases have caught up 
with us. The order form on the last page reflects the 
new costs which are now in effect Sorry, we'll do our 
best to hold the line. 

Roy Martens 
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LETTERS 



Dear FIG, 

Please find enclosed two short articles 
which might be suitable for publication in 
FORTH DIMENSIONS. 

I did not ask for the publication kit, 
so I hope the articles do not violate your 
rules too much. Second, my native lan- 
guage is not English but Dutch, so forgive 
me if thera are any errors and feel free 
to correct them. 

Please note my new telephone number and 
correct it in your listing of local FIG 
chapters. 

We have not had many meetings lately, 
probably because our members are too 

active! 

Paul van der Eijk 
54S0 Wisconsin Avenue #1128 
Chevy Chase, MD 20015 
(301) 656-2772 

Thank you for your articles, Paul, 
Readers can find them under the appli- 
cations area of this issue. ~~ed. 



Dear FIG, 

I recently purchased a listing of fig- 
FORTH for the 8080 from you and I am very 
impressed with the Language package. You 
will find enclosed an order and Bank Draft 
for several books which I eagerly await. 
I received my Dual Micropolis Mod II Disk 
drives only two weeks ago and my first 
project was to assemble FORTH. The disk 
interface routines were quite easy to link 
to the Micropolis DOS using ideas from the 
CFM interface supplied. However, when t 
tried to LOAD a short word definition off 
a screen the system would lock up and not 
come back with any error mas sages or the 
'OK' J because the system would compile 
words from the keyboard and the Disk I/O 
worked well, I was puzzled as to why there 
was a problem. -After four days of search- 



ing and debugging, I found that the 
program was looping through INTERPRET, and 
each time the paramater stack had an extra 
value on it. Eventually, I found the bug; 
it was in the ENCLOSE routine and the 
problem is that only an 8 bit counter is 
used to hold the offset into the buffer. 
However, the Micropolis sectors are 256 
bytes and so are my Forth Disc Buffers. 
If there are any non-delimiter characters 
in a buffer, then all works OK, However, 
if the buffer holds 256 blanks, then the 
loop around ENCLl scans to the end of the 
buffer but the 8 Bit offset ends up 
pointing at the start of the buffer still 
an INTERPRET never gets to to see the NULL 
at the end of the buffer. Obviously, the 
routine works OK £ot CPM 128 Byte Sectors, 
but needs modifying for larger capacity 
sectors. 

I have included the source listing for 
ENCLOSE as modified by me (sorry, I 
haven't got my printer going yet). I have 
used the DE register pair for the offset 
counter and have kept the definition 
character in the Accumulator which means 
pushing and popping it when it is neces- 
sary to check for a NULL. 

I hope you find this of interest and 
maybe you will include a change of this 
sort in future versions. I learned a 
great deal from this problem, and it was 
probably to my advantage that it occurred, 
as my only prior information was the 
•FORTH' BYTE. I really learned the hard 
way. 

William D. Miles 

P. 0. Box 225 
Red Cliffs 
Victoria, 3496 
Australia 

Thank you for your contribution. 
NOTE: You will find Mr. Miles' bug fix in 
the TECHHOTES, BUGS & FIXES section of 
this issue. — ed. 

DON'T MISS OUT! GET YOUR PAPER IN 

EARLY FOR THE FORML CONFERENCE! 
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Dear FIG, 

Could you print ray address in your next 
FORTH DIMENSIONS issue: I would like to 
hear from other Belgian FORTH-istsI 

Hlchel Dessaintes 
Rue de Zualart 64 
B 5810 Suarlee 
Begium 

OK, Michel, start watching your mail 
box!" ed. 



Dear FIG, 

Congratulations on your last issue 
(Vol. II, No. 6). It's nice to see some 
tutorial inputs at a level that beginners 
like me can understand. Keep it up I 

Would you please print the SEARCH 
routine mentioned in John James' article 
on page 165 of Vol. II, No. 6. It appar- 
ently got replaced by the correction 
notice at the bottom of the page. 

I was interested in trying EDGAR H. 
FEY'S FEDIT in Vol. II, No. 5, but was 
stumped by the word REPL which was not 
defined- Is it possible MR. FEY could 
provide the definition? (Also, I noted 
that SCR#67 errors at line 48 ~B/BUD -- 
which apparently is supposed to be 
B/BUF.) Screens should be required to be 
loadable, not edited by publisher or 
author without loading edited version. 

In respecL to editing, please also note 
that Major Selzer's article in the Vol, 
II, NO. 3 issue on page 83, SCR#200 line 3 
should apparently be 08 CASE for left 
cursor as opposed to OB as printed, since 
OB is used for UP cursor. This screen 
does work when above mentioned change is 
made. 

I realize that submitted copy may need 
to be retyped but the dangers of intro- 



ducing errors are ever present. I'm sure 
that you catch most of them. 

Robert I. Detnrow 

P. 0. Box 158 BLUE STA. 

Andover, MA 01810 

Thank you for your thoughts. Glad you 
like our new approach. John James SEARCH 
is in a previous issue. Regarding errors, 
we do try to minimize them; but we are 
only human. — ed. 



Dear FIG, 

During September of 1980, material was 
ordered which included hard copy of 
figFORTH for the Motorola 6302 (6809 
preferred) CPU, and FIG membership for a 
year. Hard copy received was Talbot 
Hicrosystans v. 1.1. 6809 .FORTH. After a 
considerable amount of study, and a com- 
plete rewrite, that soCtware is now up and 
running) apparently as designed. (No 
operating bugs have been detected, but it 
would be reasonable to expect bugs to 
appear far into the future.) Some general 
comments on the system may be of interest. 

A major factor in the acquistion of 
this software was the indicated ability to 
run high level software on a small Sys- 
tran. If the Talbot software is designed 
for a mLcrosystsm, then I must have a 
nano-system by definition; a disk would 
cost far nxjre than all hardware currently 
in use, and appears quite unrealistic for 
this home hobby system. The alternative 
cassette is implemented, but patience 
would be strained beyond limits if nearly 
8K words were loaded for each use at 300 
baud. Thus, my system clearly demands use 
of EPROMs for source code. 

I have used several methods of code 
reduction. 

1, A short branch to several copies of 
NEXT. 

2. Place the user area in the direct 
pad. 



Page 36 



FORTH DIMENSIOHS Hi/ 2 



3> Add a byte literal as veil as LIT. 

4. Some high level routines are 
shorter in code. 

The ond result of this process was code 
retaining nearly all of Mr. Talbot's word 
definitioQS, and fitting easily in 6K 
byCes (3 2716 ' s) . There is very little 
benchmark infnrmation available (this 
would make a worthwhile FORTH DIMENSIONS 
article), but those found generally ran in 
1/2 the tiioe cited for the APPLE. 

A. R. Gunion 

182 Minuteman Drive 

Concord, MA 

The real definitions of nano and micro 
as applied to systems vary with each 
user. Suffice to say that FORTH is by 
definition a disk based system. If you do 
not have a disk then you are compromising 
on an area vital to obtaining the real 
potential of the system. 

Regarding benchmarking, it has always 
been the position of FORTH DIMENSIONS that 
the nature of FORTH makes benchmarks more 
of an indication of the spaed of a CPU 
than any particular system and we gener- 
ally do not publish them. This has been 
discussed at length in previous edi- 
tions, — ed. 

Dear FIG, 

While I cannot disagree with the intent 
of "An Open Response" in FORTH DIMENSIONS, 
Vol. II, So. 6, concerning the hardware 
requirements for FORTH, 1 feel you may 
discourage some with the categorical 
statements you made. It is possible to 
accomplish a great deal with much less 
than you described. I hand-installed the 
6502-verison of fig-FORTH on a homebrew, 
KIM-based system that had only 8K of SAM 
and traditional cassette- storage. Hy 
"terminal" was a memory-mapped 16- line by 
32-character display with ASCII key- 
board. This ainiiaal system has given ae 
hours of pleasure and practical experience 
with FORTH, and because of the concise 
nature of FORTH has been capable of power- 



ful constructs. An acquaintance has 
installed a cut-down version on a 5K KIM 
with ASCII keyboard and walking "times- 
square" display on the KIM LED's. There 
is no question that we would be more 
comfortable in the hardware environment 
you define, but compared to Tiny-Basic, 
for example, these minimal FORTH 's are 
heaven. 

I found the same bugs in the May 1980 
6502-version of fig-FOKTH that Grotke and 
McCarthy have already reported. In addi- 
tion, I would warn prospective installers 
that the TRACE routine depends on the 
output routines preserving the Y-register, 
and that the MON routine is not quite 
correct. Since the 6502-processor incre- 
ments the program counter by two v^en BRK 
instruction is executed, BRK should be 
followed by a NOP to ensure that a simple 
machine-language monitor will return to 
the start of the IDX XSAVE instruction. 

My system now includes a 320x200 dot 
raster-scan display, and I am interested 
in corresponding with others concerning 
FORTH-based graphics processors. 

Kent A. Reed 

49 Midline Court 

Gaithersburg, MD 20760 

The point of Che "Open Response" was 
not to condemn anyone's systeraj rather to 
point out that FORTH is designed to be 
used with a disk. Naturally, the nature 
of FORTH means that it will perform (and 
outperform other languages) regardless of 
the environment. Your "bug" comments are 
appreciated, — ed. 



Dear FIG, 

In bringing up the 5502 Assembly Source 
listing on my Rockwell System 65, I 
encountered a problem involving writing or 
reading the disk drives. The symptoms 
involved setting an 01 error everytime the 
disk was asked to jump to the next track. 

The problem turns out to be hardware 
and only exists on a Sys 65 with Pertec 
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model FD200 drives. The fix ls simple and 
i.5 detailed in Rockwell Service Bulletin 
'SYSTEM 65-7' which may be obtained by 
writing: 

Rodger Doerr 

SYSTEK 63 Customer Service Bept. 
ROCKWELL INTERNATIONAL 
Microelectronic Devices 
P. 0. Box 3669 
Anaheim, CA 92803 

(Or call Rodger at (714) 632-2862.) 

I hope that this Information can be 
helpful to other Individuals who are 
working with FORTH on the SYS 65. 

Jack Haller 

230 Mechanic St. 

Boonton, NJ 07005 

Thank you — I am sure you have saved 
more than one frustrated programmer a few 
sleepless nights. ~>ed. 

Dear FIG, 

Enclosed is $12.00 (now $15.00 — Pub.) 

for another year of FORTH DIMENSIONS. I 
have FORTH up on 2 KIM's (Dean's version) 
and a Superbrain; although my "playtime" 
is limited, I enjoy tinkering very much. 
It might amuse you and Mr. Moore to know 
that one of the systems is goin^^ to 
control a 10' dish radiotelescope which I 
also use for looking at thunderstorms. 

1 am slowly getting together parts of a 
Western Digital-based computer. Their p- 
code chip is a natural for FORTH — almost 
all primitives are single instructions. 
This is a very long-tern project -ind, no 
doubt, someone will beat me to it, but it 
needs doing. Please pass this on to any- 
one who might be interested. I would be 
glad to correspond with them. 

As a long-time but not prolific user of 
FORTH, I'd like to put in ray buck's (in- 
flated two bits') worth: KISS — this 
acronym is keep it simple, stupid. In 
other words, let's not get too many words 



into "Basic FORTH" vocabulary. Certainly, 
more advanced words are useful and should 
be published and documented, and are, of 
course, part of the FORTH vocabulary by 
definition. Any standards, however, 
should be kept very simple. Enough. 

Don Latham 

Six Mile Road 
Huaon, MT 598A6 

OK interested members, drop him a 
line. — ed. 



Dear FIG, 

This letter is in response to C. A. 
McCarthy's letter in FORTH DIMENSIONS, 
Vol. II Ho. 6 concerning the errors he 
listed: 

Page 006 X 

Yes, there should be a SEMIS at the end 
of the UPDATE. 

Page 0064 

I haven't hooked up disks to FORTH yet, 

so I didn't notice this one, but I 
agree that the displacement in line 
3075 is wrong. 

Page 0067 

I dropped one of the STX XSAVE' s 
without ill effect. 

Page 0069 

The extra SEMIS is superfluous, but 
will not have any harmful effect. 

I did find another error in the 

listing. This one, rather than being a 

typo, appears to be an error in program 
logic. 

Page 0017, lines 0803-0805. The listing 
for routine ZERO shows: 
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LDA 0,X 
ORA l,X 
STY 1,X 

Since Y contaias at this point, the 
zero flag in the processor status register 
will always bt^ sat by the STY instruc- 
tion. Therefore, the branch which follows 
will never be taken, resulting in a logi- 
cal "false" value always being left on top 
of the stack. I replaced the above code 
with the following: 

LDA 1,X 

STY 1,X 
OSA 0,X 

This causes the processor status to be 
set properly to indicate whe Cher the top 
Stack entry is a zero or not. I know of 
no other errors in the listing. 

Steve Wheeler 
504 Elmira 
Aurora, CO 80010 

Thank you for passing along the 
above. — ed. 



Dear FIG, 

A little note about changes in the 

situation in NW Europe. During the second 
half of March, there was an exhibition in 
Malrao (close to Copenhagen) - "Datacraft 
81" (Computer power~81). 

Up until then, FORTH was very difficult 
to get in touch with here in Sweden. To 
my great astonishment, there were at least 
4, perhaps 6, systems running in different 
pool s . The most interes ting one was a 
poly-FORTH system running on an ABC-80 <a 
Sw Z'SO lowend machine ) • There were also 
fig-FORm' s running realtime setups on 
pet's. 

To me, who had up until then been 'dry 
swimming ' FORTH, it was quite an experi- 



ence to key in definitions, clear, 
compact, and (CR/LF), tO be able to use 
them. Quiti.' a ki.k! 

Calle Hogard 

Glad to hear things are moving ahead. — 

ed. 



Dear FIG, 

Response to "An Open Response". 

I object strongly to the tone of the 
above (unsigned) article in Vol. II, No. 
6. It is the attitude of the 'computer 
professional' with access to a large, all 
singing, all dancing computer looking down 
his/her nose at the pathetic squirmings of 
the home computer buff. If this attitude 
had prevailed, there would be no cheap 
computers. As it is, a lot of harm is 
Still done by designers making their small 
computer systems in the image of large 
computer systems instead of making them 
like super calculators. 

Iiike many others, I first became 
interested in FORTH via the August *80 

issue of SYTE, One thing that attracted 
me was the idea that here was a high level 
language which could be used over the 
whole range of hardware . There are 
obvious resemblances between the FORTH and 
the HP programmable calculator languages 
and it is reported that FORTH or similar 
languages are used in hand-held language 
translators and in one of the hand-held 
computers. Compare the editorial and, 
more specifically, Charles Moore's 
"Characteristics of a FORTH Computer" 
(p. 88) in that BYTE issue with your "Open 
Response". FORTH is a language in which 
the user is allowed unparalleled 
freedom. Please do not insult us by 
drawing arbitrary limits which will in any 
case be out of date in a short time. 

I will agree that a quart cannot tisti- 
ally be fitted in a pint pot. Solution: 
devise a means of listing the glossary in 
such a way that for any word, the 
indirectly referenced words underlying it 
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can be read. The answer to those wishing 
to devise minimum systems would then be 
"go away and get on with it!" Remember 
that necessity Is the mother of invention 
and the professionals are those who carry 
on in the wake of the amateurs — like 
Einstein — to name but one. 

N.E.H. Feilden 
47 London Road 
, Halesworth 

Sufolk IP19 SLR 
England 

P. 5. Number typing (e<g'i Fixed, 

floating, double, quad precision, etc.) 
Surely, all this business of having 
hundreds of different numbeis types is 
silly, cumbersome, and FORTRAN-like. 

Why not forget the whole scheme and do 
it like BASE. That is to say, have a 
constant, say NTYPE which tells all opera- 
tors bow many bytes to operate on and 
whether fixed or floating. It would, of 
course, be necessary to code all constants 
and variables in the same way so that when 
referenced, the appropriate conversions 
would be done. If this were done in 
linked lists, then the memory overhead 
would be very small. The wtiole thing 
would be vastly easier to use than what is 
currently proposed: This suggestion would 
help to reduce the number of words to 
remember. 

Sounds like you have some interesting 
and creative approaches to problem 
solving. You might be Interested to know 
that the author of "Open Response" works 
on a home size computer. I am sure that 
no offense was meant and if the author of 
"Open Response" would like to answer in 
this space or another column, we will be 
glad to print it. — ed. 



HELP WANTED 

Los Angeles Area FORTH PROGRAMMER WANTED 
Contact Linda Stoffer at Pace 
Personnel, (213) 788-7039. 

FORTH, Inc. has the following job 
openings : 



TECHNOTES, BUGS, FIXES 



TIPS OH BRINGING UP 8080 Flg-FORTH 

Ted Shapin 
5110 E. Elsinore Aenue 
Orange, CA 92669 



Some of the "gotchas" I ran Into in 
bringing up 8080 -Fig-FORTH may be helpful 
to others. 

Make sure your assembler will handle 

lines such as DW A,B-$ correctly. The 
Boston Systems Office cross-assemblers use 
the address of the first operand as the 
value for in the second operand. This 
leads to a system that will print out the 
sign— on message but vjlII fail to perform 
many other operations correctly. I got 
around this by changing such occurrences 
to two separate lines; DW A and DH B-$. 

The next problem to solve is how to 
type In the editor screens. It is nearly 
impossible to type the editor in twice 

correctly. As R. Allyn Saroyan pointed 
out, you only need to type in a mini- 
editor twice. Once, to get it in the 
dictionary so you can use it, and again, 
to get it to a screen so you can put in on 
disk. The mini-editor is simply taken 
from the Implementation model editor 
screens as follows: 

HEX : TEXT HERE C/L 1+ BLANKS WORD HERE 
PAD C/L 1+ CMOVE } 

: LINE DUP FFF0 AHD 17 ?ERROR SCR @ 
(LINE) DROP ; 

I -MOVE LINE C/L CMOVE UPDATE ; 
: P 1 TEXT PAD 1+ SWAP -MOVE ; 
DECIMAL 

Now, proceed to use it to write itself 
to the disk. You can do this by picking 
an unused screen, say 85 and typing 85 
LIST. Now use "P" to place a line of text 
on the screen, e.g., P ( Mini-editor ) 
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will place a comment on line of the 
current screen. 



HOTE: see Mr. Miles' letter in Letters 
section. — ed. 



Type the rest of the lines above and 
then use the word "FLUSH" to write the 
mini-editor to disk. Now^ when you need 
to start the system again, just type 85 
LOAD and your rain i-edi tor will be put into 
the dictionary. 

Use the mini-editor to type in the Fig- 

FORTH editor. The string search screen 
can be omitted if you do not have a ver- 
sion written in highlevel FORTH. 



USING ENCLOSE ON 8080 

Using ENCLOSE with disk block buffers 
of 256 bytes each or larger on the 8080 

processor. 



Mr. William D. Miles 
P. 0. Box 225 
Red Cliffs 
Victoria 3496 
Australia 



CORRECTIONS TO METAFORTH 



John J. Cassady 

339 15th Street 
Oakland, CA 94612 

The following corrections to the Fig- 
FORTH cross-compiler, MEXAFORTH, by John 
Cassady should be noted: 

page 26 screen 66 line 7 should read 



EHCL4 









DB 


'E'+BOU 




Df 


PFIHD-9 




W 


S+2 




POP 


D 


;(ci-:)<-(si )"r)fain!TBK ciih 


POP 


11 


;<1II.)<-{S2)=ADI>R. OF TEXT TO SCAN 


PUSH 


El 


JCSAX-ADDR. 


fFOV 


A.E 


;(a}<-DeUM C11R 


IJCI 


D,-l 


JIMlTIALiZn rilR (ItYSET OOUNTER 


ncx 


11 


;CEIL)<-ADDR-1 






;SKIP OVER LEADING DP.LIHITER CURS 




11 




IHX 


n 




CMP 


fi 


;ii' t;:xt am - iiLi.Kt chh 


JE 


EtlCLl 


;THiv(." l.dur ACAKl 






iELSF NOtl-DeLIN CIIK FOUND 


PUSli 


1> 


;CS3)<-(1>E)-0FPSET TO 1ST NOH-DELIH 


PUSH 


I'SW 


;SAVE DRLIM CtlR OH STACK 


KOV 


A,tC. 


ilF ]ST HON-DELIM-NULl. 




A 




JK?. 


ENCL2 




POP 


FSW 


;X4££N IiISCARD DRl.IM OIR 


IHX 


D 


J (S2X-OFFSET TO BlfTE yOLLOWINC HULL 


PUSH 


D 




DOC 





; (SI )<-OFrSET TO KULI, 


PL'S II 


a 




J MI" 


tJI'XT 




POP 


I'SH 


;(A)<-reLlM CI IK FROU STACK 


I NX 


11 


sdiLX-ADDK Ht,xi am 


IHX 


D 


;<l)F.K-nPFSRT TO If EXT CUR 


CflP 


M 


i-lK NKXT fllRODELlM CIIR 


jy, 

pi:sii 


E.'X'l.i 
PSW 


jSAVn RF.LIH CUR 0« STACK 


NOV 


A,H 


iAND IP NEXT CflRONlTLL 


AHA 


A 




JNZ 


ENC1.2 


;Ti:f:ri aiMiKiii- scAti 






;ELr.;i c:iin=tji;i.l. 


POP 


PSU 


;[lTSnARn DELIM CUR 


PUSH 


D 


;(E2)<-UFFSEr TO (tUl-L 


PUSH 


D 


;(S1)<-0FFSET TO NULL 


JMP 


:.t:vt 








;Kl.se ciiR-yci.jti CJtit 


PUSH 


D 


; (S2)<-tlFI'SET TO BVTli FOLl.OtJKJi, TEXT 


I NX 


n 


;(S1)<-0FPSET TO 2BVTES AFTER END OF WORD 


PUSH 


D 




JMP 


DUCT 





KISR H LXI SRA5 SHLD 12 ORG + LRU) SPHL 
NEXT JMP 



page 38 dumped 
should be 6A 



memory location 798G 



A few lucky purchasers will have noted 

that they possess those rare copies o£ 
METAFORTH in which pages 8 and 9 are 
swapped. 

METAFORTH, hy the way, is a cross- 
compiler for Fig-FORTH. It can be used to 
regenerate a FORTH system including the 
nucleus without resort to an external 
conventional assembler . This is helpful 
when modifying low level words, generating 
"stand-alone" applications, converting to 
FORTH-79 and the like. A special section 
is devoted to generating headless 
configurations with the same or different 
processor. 

METAFORTH is available in hardcopy 
through: MOUNTAIN VIEW PRESS, PO Box 
4656, Mountain View, CA 94040 for 
$30.00. There are plans to have it 
available on disk and compatible with 
several of the popular commercial fig- 
FORTHs from their respective vendors. 
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CHANGING 8080 fig-FORTH 
FOR DISK COPYING 

Ted Shapin 
3110 E. Elsinore Avenue 
Orange, CA 92669 

The FigFORTH 8080 implement at ion uses 
all bytes of all sectors on the single and 
double density diskette. This means 2002 
sectors on a disk for single sector and 
4004 sectors for double . This is not a 
multiple of eight so the last screen on a 
disk will be split across two disks. By 
simply changing the equates for SPBRVl aad 
SPBRV2 to 2000 and 4000, we will have an 
even number of screens per disk. This 
allows a screen disk to be copied from 
disk A to disk B by using the Fig-FORTH 
COPY word. 

NOTE: Ted has the correct method. Any 
other system setup that could split 
screens is incorrect. — ed. 



FORTH STANDARDS CORNER 

Robert L. Smith 

There is a need for a channel of 
communication regarding the standard- 
ization of FORTH. A major topic is the 
clarification of the FORTH-79 Standard. 
What changes are required or desirable for 
clarification or extensions to the Stan- 
dard? Is the FORTH Standards Team the 
appropriate mechanism for obtaining a 
"seal of approval" for corrections and 
changes to the Standards? 

Let us first consider a fairly simple 
topic, the unsigned count speci f ied in the 
definition of FILL io the 79-Standard. 
FILL is defined as follows: 

FILL addr n byte 234 

Fill memory beginning at address with a 
sequence of n copies of byte. If the 
quantity n is less than or equal to 
zero, take no action. 



This is a clear and reasonable un- 
ambiguous definition. However, at the 
Rochester FORTH Standards Conference, 
there was a s trong consensus that the byte 
count n should be an unsigned number. The 
restriction in the definition seems to be 
unnecessary; the only thing to be said in 
its favor is that it might save a pro- 
grammer from an inadvertent error (and 
generally FORTH does not try to save 
programners from their errors). If the 
unsigned FILL were to be the fundamental 
definition, then the signed version would 
be trivial to implement. The reverse is 
more difficult. Thus, the unsigned FILL 
would lead to better "factoring". Fur- 
tyierinore, a common use for FILL is to 
preset a large portion of memory. The 
unsigned version is clearly better suited 
for this task. 

Having said that, wliat should be 
done? Since the current definition is 
unambiguous, and since 79-Standard ver- 
sions o£ FORTH currently exist {with 
several more in advanced stages of 
development), it seems to me that there 
should be no change to the 7 9 -Standard in 
this area. The Standard Team has sug- 
gested one mechanism for evolutionary 
changes in FORTH via "Experimental 
Proposals". An experimental program 
would, however, Involve a new name for the 
changed function and could not become a 
permanently accepted change until two 
revisions of the Standard. That may or 
may not be acceptable, depending on the 
frequency of the revisions. 

Please send in material, questions, and 
comments relevant to FORTH Standards. I 
will try to cover one or two areas with 

each issue. Possible topics for next time 
are the words WORD and +LOOP. 



CORRECTIOH 

"Systems Guide to fig-FORTH" by Ting is 

not avail able through FIG ■ Orders for 
this book, revised 1st edition @ $25.00, 
should be sent to: 

MOONTAIN VIEW PRESS 
PO Box 4656 
Mountain View, CA 94040 
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NEW PRODUCTS 



SYM-l FORTH 

Saturn Software Limited has implemented 
Fig- FORTH for the SYM-l single board com- 
puter. Their implementation takes advan- 
tage of many of the features and resources 
of the SYM-l. 

SYM-FORTH 1.0 (disk version) requires 
16K of ram, serial terminal, and the dual 

HDE mini disk system. System has been 
upgraded to the 7 9- STANDARD and includes a 
versatile input line editor, fig-style 
editor, 6502 assembler, and a cassette 
interface. This product is also supported 
by a quarterly newsletter with an initial 
circulation of 100. 

Extras Included: 

Assembler, editor, cassette interface » 
plus numerous utilities and demos pre- 
sented through subscription to newsletter. 

Machine on which product runs: 

SYM-l, 6302 singleboard computer. 

Hemory requirements: 16K of ram 

Manual : 

The 74 page manual includes 
introductory tutorial material, system 
information, and glossaries for the FORTH, 
EDITOR, and ASSEMBLER vocabularies. The 
manual is available separately for $25 
which will be credited towards a later 
purchase. 

Form product is shipped in: 

Product is distributed on two 5-1/4 
inch diskettes, and boots with 79-STANDARD 
upgrade installed. (Cassette version is 
also available which can be upgraded to a 
disk system at any time.) 



Product has five active installations 
of the disk version (79-STANDAIU}). There 
are also 50 installations of the cassette 
version. 

Price: 

SFD-1 SYM FORTH FOR DUAL HDE MINI DISK 
SYSTEM §150 U.S., includes shipping, tax, 
etc. 

Vendor support: 

Direct personal support by phone, 
correspondence, and newsletter. 

Order turn around time: 

Lmmedxate • 

For more information^ contact: 

Jack W. Brown 

SATURH SOFTWARE LIMITED 

8246 116A Street 

Delta, B.C., V4C 5Y9, CANADA 

(604) 596-9764 



OSI-FORTH 2.0 / FIG-FORTH 1.1 

This is a full iiaplementation of the 
FORTH Interest Group Version 1.1 of 
FORTH. It runs under OS-65D3.12 (or 3.0, 
3.1), on any disk-based Ohio Scientific 
system, and has access to all DOS commands 
and resources. 

Extras include resident text editor. 
Assembler, and utility screens for 
transferring the system to a new disk, 
initializing library and system disk block 
storage tracks, copying screens from disk 
to disk, and reconfiguring the system 
memory usage* 

Machines: 

Ohio Scientific C4P MF, C8P DF, C3, 02- 
8P DF, CIP MF, and C4P DF. While only one 
drive is needed ^ dual drives are 
supported. 
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Memory Required; 24K 



Manual: 

Currently 95+ pages — with new OSI-FORTH 
Letters added as they are produced. 
Twenty-four pages of discussion of 
particulars for OSI, utility screens, and 
operation of the editor (includes sample 
edit screen). FIG Installation manual 
included. Listings of utility and other 
sample screens. Available separately for 
$9*95» lAicfa is credited toward system 
purchase. 

Media Available: Eight- inch or mini disk. 

Approximate number shipped: 25 

Price: 

$79.95 includes shipping. (Florida 
residents add 4% sales tax.) 

Delivery: 30 days. 

Support: 

OSI-FORTH Letters subscription avail- 
able for $4 per year. Contains fixes for 
any new minor bugs that may be found, as 
well as listings of application screens 
donated by users « or developed by 
Technical Products. 



For more information > contact: 

Daniel B. Caton 
TECHNICAL PRODUCTS COMPANY 
4151 N.W. 43 St., #507 
P. 0. Box 12983 
Gainesville, FL 32604 
(904) 372-8439 



NEW PRODUCT 

DATRICOK FORTH 

Datricon now offers D-FDRTH, a software 

package designed for use in conjunction 
with microprocessor-based, SID Bus com- 
patible products using a Single Board 
System concept and offering a variety of 
68itx/65xx processors, Datricon' s single 
board controllers use interface standards 
such as the STD Bus, RS232, and RS422 for 
serial communications and with or without 
parallel I/O compatible with the popular 
isolated AC/DC module racks. 

For more information, contact: 

DATRICON CORPORATION 
7911 N.E. 33rd Drive 
Portland, OR 97211 
(503) 284-8277 

Warning — this FORTH is different vx names 
and omitted 'vestigal words'.— *ed. 
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ELEMENTS OF A FORTH 
DATA BASE DESrGN 

by Gleu B. Haydon 

In this day and age, data base design 

and manipulation is one of the major 
activities best accomplished with com- 
puters. In practice, FORTH proves to be 
an ideal language for developing and using 
custom data bases. By comparison with 
other languages, high or low level, FORTH 
is a winner. It meets the requirements of 
being interactive and providing documen- 
tation as identified by Fred Brooks? in his 
book, THE MYTHICAL MAN-MONTH, as being 
ideal for the development of new sys- 
tems. The amazing speed and ease with 
which custom data bases can be developed , 
more than justifies the effort required to 
learn FORTH, 

I have developed a number of small data 
bases of up to 800 records containing 128 
bytes each to serve my specific needs. I 
have also initialized, with simple for- 
matted input and output routines, a custom 
data base for inventory control in a few 
hours one evening* Having used languages 
other than FORTH for similar work, it ia 
highly unlikely I will ever go back to 
them. 

Thi s discussion presents a group of 
utility FORTH word definitions which 
facilitate the development of custom data 
bases and a sample application using these 
utilities to define a small file. A 
number of techniques available in FORTH 
are illustrated. 

Some months ago , at a regular monthly 
meeting -of the FORTH INTEREST GROUP in 
Hayward, the prime mover of the group 
distributed and discussed several FORTH 
Screens which provided the foundation for 
beginning the definition of a data base 
file. I have modified his Screens 
slightly and eicpanded them to provide a 
general framework with which to define 
custom accounting data bases. I will 
assume that the reader has some knowledge 
of the fig-FORTH Model and proceed with 
the examination of Screens developed from 
it. In the discussion, FORTH words are 



enclosed in single quotes to set them 

apart from the English words in the 

text. In FORTH, these words are used 
without the single quotes. 
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The first two Screens provide eight 
utility FORTH words for developing a data 
base file. The comments included in the 
Screens within parentheses should, com- 
bined with the mnemonic nature of the 
words, give you a clue to what is liap- 
pening. The first two words are variables 
used in manipulating the file, 'E£C#' and 
'OPEH'. '2@' is a FORTH word, and alias 
for 'D@' , which fetches the next two 
values beginning with the address on the 
top of the stack and places them on the 
stack. The word, 'LAYOUT' , places two 
parameters of the new definition of a file 
on the K;La;:k for subsequent use* 'READ' 
i s the first word that one wi 1 1 have 
occasion to use in routine manipulating 
records in the data base. It takes the 
number of the desired record from the top 
of the stack and, after checking to see 
that it is a valid record, places its 
value in the variable 'REC#' which is used 
to identify the record then under con- 
sideration. The word 'RECORD' takes the 
value for a record nimber from the stack 
and returns its address to the stack* 
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Finally, 'ADDRESS' takes the record number 
at the variable 'REC#* and using 'RECORD' 

leaves the address of that record on the 
top of the stack. With only these eight 
FORTH words; two variables, one utility 
word, and four basic words for file refer- 
encing, we can proceed to the definition 
of three defining words in the next 
Screen. 
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The three words on the next Screen are 
called defining words because they are 
used to define new FORTH words as the 
names of fields in our record and to de- 
fine the name for the file we are 
defining, each with specific properties. 
These words utilize the corabiaation of the 
FORTH primitives •<BUILDS' and 'DOES>' 
^ich are present in the Model. It may 
talce some time to fully appreciate what 
these primitive words accomplish and the 
way they work. Perhaps an examination of 
what they are doing in this Screen will 
help you understand their function. 

Two types of record fields are 
distinguished and defined with separate 

words, a numerical or data field and a 
text field. The first word, "DFIELD", is 
used to add to a record being defined, a 
field containing the number of bytes given 
on the top of the stack and gives that 
field a name. In subsequent use, that 
newly defined word (data field name) will 
cause the address of that field in the 
record whose value is currently in the 
variable 'REC#' to be left on the stack. 
This word is used to identify the location 
in a record where a numerical value is to 
be stored in a binary form. I call it a 
"data field", in contrast with a "text 
field" in which the length of the field 
should also be immediately available. 
Thus 'TFIELD' is used to define a "text 



field" which will identify a field in the 
new record with a length in bytes given on 
the top of the stack and gives that field 
a name. In subsequent use, that newly 
defined word (text field name) will cause 
not only the address of that text field in 
the record whose value is currently in the 
variable 'REC#' to be left on the stack, 
but also the length of that field. The 
length is convenient when the primitive 
word 'TYPE' is -jsed to print the character 
string in that field. Obviously the 
length is not needed in a data field. 
Thus, provisions are made for defining two 
types of fields in a record. As new 
fields are added to a record in the course 
of its definition, the current length of 
the record is maintained on the top of the 
stack. 
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Once the definition of the fields in a 
record is completed, the value of the 
record length remains on the stack. To 
this we need to add values for the number 
of records we wish to include and finally, 
the block number in which the records are 
to start, before we can use the defining 
word ' file' to give the file a name. 
Later when the new file name is used, the 
address of the necessary file parameters 
is placed in the recently defined variable 
'OPEN' as required for access to any given 
record with the words defined in the first 
Screen. 

With these two Screens, we have the 
file utilities necessary to define a new 
file. However, several characteristics of 
the particular implementation of FORTH 
which is being u^ed ,ire important. Most 
systems created aiider the Model have 12S 
bytes per block although any multiple of 
128 can be used. In these sy terns then, 
the largest record length can be no longer 
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than 128 bytes, but with a larger block 
size, lacger records can be used. In 
order to take maximum advantage of the 
block size, it should be very nearly equal 
to a multiple of the record length. For 
example^ a record length of 70 bytes would 
not leave enough room in a 128 byte block 
for a second record and in this case, 58 
bytes of ypace would be was ted . If nei^d 
be| such a designed file would work, but 
at the exf»ense of memory space. Also, the 
initial block to be used in the definition 
created by the word 'FILE' must be chosen 
according to the block size for the 
particular implementation. For example, 
block 400 in an implementation with 128 
bytes per block would be block 50 in an 
implementation with 1024 bytes per block. 
Although, I find a block size of 1024 to 
be more efficient and use it routinely, 
the Screens presented here have been 
written for and tested on an imple- 
mentation with 128 bytes per block. 

Before starting with a discussion of an 
example of the application of these file 
development utilities, several Screens of 
utilities for use in the input and output 
of numerical data will prove to be most 
helpful. These include a group of double 
precision utilities, date compression and 
expansion routines, a numerical routines 
for handling dollar amounts and storing 
them as double precision integers. 
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The double precision integer utilities 
are used in date compression and expansion 
as well as in the double precision integer 
operations for dollar amounts. These are 
simple extensions from the limited double 
precision words found in the Model and 
should require no further explanation* 
The input on the stack before executing 
the word and the output left on the stack 



afterwards are indicated in the foraat 
used in the fig-FORTH GLOSSARY. You will 
note that several of these are mixed 
double and single precision operations 
which are sufficient for the requirements 
of this program. 

The date compression routine is really 
simple. fflieu I find the time I will 
develop an algorithm to convert the date 
to a true Julian day and store the least 
significant value. This would make 

calculation of the time between two given 
dates easy. In the meantime, the present 
routine allows one to enter the date as 
numerical values separated by slashes , a 
commonly used format, and reduce the value 
to a single 16 bit integer requiring only 
two bytes for storage. The routine 
provides an example of using a del imiter 
other than a space to parse 'WORD' and the 
use of 'NUMBER' to interpret a numerical 
value without searching the dictionary. 
After the parsing of the input, three 
double precision numbers are left on the 
stack. The word 'DATEBIT' defines a 
simple algorithm which is applied to 
reduce these three double precision values 
to 16 bits. The execution of '?DATE' 
first prompts with the format to be used, 
then waits for the value to be entered. 
The value is then converted to the 16 bits 
and left on the stack for starage. since 
'.' is used to conote "print" in FORTH, 
'.DATE' is defined to print a properly 
formatted date from a 16 bit integer on 
the stack. This routine is useful as an 
example of conversion of a binary value to 
a text string for printing. 

1 L (3** ifn? acrtLGr. i.^r eicr, iC-*:*l case ) 

I : lEC^LE :NPL/r EfiPOFl " CB i 

4 L define j^jle -^jAi ai^ wtttnd tat .Ktl with 'CFA' } 

5 • .'SCiLi ■.aSKBLE IISCU£ ' ISCHLE Cf* , ' 1SCM£ C» , 
{ ■ ISCHt CF* . 

7 I dHsU (xKitlM vmlut laxcMts to 'DK.' I 

B t 3CU£ n>L I 3 HSU 3 • UtOiLS • « EKECOTt I 

9 (wit ior iKisal v^lt* and Ecml* It - Iwv. vtlum en bgk^ 1 

](t i ?SAMC*j'Wr OUEBY BL HEBC NIH££B ; 

M ; print i ftJ^n stj.Mt 43 ? ind right justify Irv a sptnt i 

12 t ^SAMtXWr 

i2 CUP BffT RCT t*» vt I # 4fi HOUS fS SIGN l> 

14 IG EMIT CUB S SUtt - iWCES TIK 1 

15 :S 

»5S « IS 
UK 

Finally, we have a Screen to define 
some FORTH words used to input and output 
dollar amounts and convert them to and 
from double precision 32 hit integers with 
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the necessary scaling for the location of 
the decimal point. In FORTH, the use of a. 
decimal point forces an input number to a 
double precision integer f^ich takes four 
bytes. A convenient FORTH primitive word, 
'DPL' for decimal point locator, keeps a 
count on the nuoiber of digits entered 
following the decimal point . Utilizing 
this value as an input for a case type 
word, the numerical value entered can be 
scaled properly, regardless of how many 
digits are entered to the right of the 
decimal if any. This raethod of executing 
a case like routine is straight forward. 
First, the action to be taken in each case 
is defined. 'OSCALE' means that there 
were no digits to Che right of the decimal 
which requires that the ent^rad double 
precision integer must be multiplied by 
100. In a similar manner 'ISCALE' is used 
meaning that there was only one digit 
entered following the decimal point and 
the entered double precision integer must 
be multiplied by 10. '2SCALE' does 
nothing since no scaling is needed. 
Finally, if more than 2 digits are entered 
an error must have been made an an appro- 
priate error message is given. Once each 
of the cases is defined, their code field 
addresses, 'CFA', can be stored beginning 
with the address of a defined variable 
'NSCALE' and extending into the alloted 
space. The word 'SCALE' then finds the 
value of Che variable 'DPL' and counts 
over to the proper code field address 
which is then placed on Che stack and the 
selected word is executed. 

After this scaling operation, the word 
to input a dollar amount 'T^AMOUNT' is 
defined which leaves the scaled double 
precision integer on the stack ready to be 
stored. Finally, a routine defined by the 
word '.AMOUNT' connoting "print dollar 
amount" will print the double precision 
integer on the top of the Stack as a 
dollar value right justified in eight 
spaces. 

There are certainly other and probably 
better ways to accomplish the work done by 
these three Screens of utilities, but they 
work. The way they work provides some 
examples of the beauty of FORTH as it 



exists in the Model. 

With these five Screens, we can very 
quickly define a record for a data base 
with custom selected fields and then the 
associated file characteristics. In the 
past* I have several times included in a 
data base values calculated from other 
values in the base. On occasion, it has 
been necessary to change one of the 
original values. This has always required 
that the calculated fields be redone, 
too. I now find that it is more con- 
venient to enter only the basic data. All 
calculations can be tnade while the output 
is being formatted and printed with no 
significant loss of time. The slowest 
part of printing the forrsiatted result is 
the delay in the output device. 
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As an example of the definition of a 
new data base, I have chosen one in which 
each record would be allotted 4 fields for 
a two byte tag, a 30 byte stock name, a 
two byte date, and a 4 byte stock price. 
Though little could be done with this as a 
data base, it does provide an example of 
each type of input. Finally, a simple set 
of routines is given to clear the records, 
input new records, and print out a list of 
the records in the file. 

As a matter of convention, I give each 
field a name with no prefix. Thus, a data 
field name will leave an address on the 
stack and a text field name will leave an 
address and count on the stack. By using 
the FORTH connotations of'E' for store and 
* . ' for print, I define some utilities for 
inputting data and text and printing out 
the respective fields. From these util- 
ities, I can assemble an input format and 
an output format as desired. X have not 
included routines for error checking which 
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would be most desirable especially in a 
hostile environment. 

Now, to examine the actual ex-rsaplw of 
the definition of a file wliich we will 
call 'demo'. Each record will begin with 
zero offset from the record address and a 
'0' is entered followed by '2* for a two 
byte length of a data field to be named 
'TAG'. Many occasions in later 

manipulation of records make it desirable 
to have such a field for adding flags, 
etc. Following this definition, the 
length value of 2 is left on the stack, so 
that for the next field, only its length 
need be entered. In this case^ a text 
field of 30 bytes which is given the name 
'NAME' which then leaves the value of 32 
(the length of the 'TAG' field plus the 
'HAME' field) on the stack. Then a two 
byte data field, 'DAY' is reserved for a 
16 bit compressed date and then a four 
byte data field 'DOLLAR' , for a double 
precision integer value of a dollar 
amount. With this, the 4 fields within 
the record of a new file are defined. 
Next, we will define the file name. 
According to the utility for generating a 
new file, we must first add to the value 
of the record length remaining on the 
stack} a value for the number of records 
we plan to include in the file and then 
the first block number to be used as 
determined by the FORTH implementation in 
use. Then, we use the word 'FXLE* to 
create a file with these paramters and 
give it the name 'DEMO'. The data base 
file is now defined. For the record num- 
ber whose value is in the variable 'REC#', 
we can place the value of the address of 
the data fields and the address and count 
of the text fields on Che stack by simply 
entering the field name. Next, a few 
simple utilities will make accessing these 
new fields easier. 

Remembering the connotations associated 
with the FORTH words ' ! ' and ' . ' we will 
define words to input data or text to the 
appropriate fields of that record whose 
value is currently in the variable 
'REC#'. These are simple file primitives 
which will then be available for routines 
to format input and outputs as desired. 



The rii=!ld 'TAG' is not used at this time 
and specific routines are not defined. To 
store a name in the name field, we define 
the word ' !NAME' , This routine first 
fills the existing field with blanks. 
ASCi.I 32 (decimal) and then pauses for 
input from the keyboard. The input text 
is truncated to the maximum length of the 
text field if necesary and then moved to 
that field. In order to output the name 
in the field, we define the word 
'.NAME'. In a similar manner, we define 
' SDAY' to store a 16 bit integer value of 
a date which has been compressed into that 
field. In the earlier utilities, we have 
already defined '?DATE' which waits for a 
dai".e to be input and leaves the compressed 
value on the stack. All that is necessary 
is to put the address of the field on the 
stack with 'DAY' and then store the en- 
coded date there. We then define '.DAY' 
to output the date stored in the 'DAY' 
field. We get the 16 bit value stored 
there to the top of the stack and use the 
previously defined word '.DATE' to output 
it in the proper format. Finally, we 
define * IDOLLAR' to parse a dollar value 
input with a decimal point in any location 
and scaled to a double precision number 
which is then stored in the proper 
field. In a similar manner ' .DOLLAR 'is 
defined to format the stored double pre- 
cision integer to a right justified eight 
digit number preceded by a dollar sign. 
With these definitions, we have completed 
a set of FORTH words to input and output 
data from records in our data base. 

Immediately after putting data into a 
record, it is often desirable to see %rtiat 
is actually present in that record. The 
values in each byte of a record can be 
displayed using a dump routine. Simply 
place the desired record address on the 
top of the stack by entering the record 
number followed by our file utility word 
'READ' and 'ADDRESS' followed by the 
length of the record and the word for your 
dump routine. But the byte values printed 
out in hex or decimal are not really all 
that helpful. It is hard to interpret the 
numerical value in their byte pattern. A 
convenient word '.REC' is defined to print 
out the current record number followed by 
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the formatted output of the value In each 
field using the above utilities and an 
appropriate number of spaces and carriage 
returns. This is the moat rudimentary 
form of a formatted output. If desired, 
the output could be presented in reverse 
video by a slight modification of this 
routine. It could also be placed anywhere 
on the screen. 

SCR I 28 

a CR SCREEN 28: DEMO FILE - CLEAR. »TA, INPt/f, OUTPUT " 

1 1 clear esjsecLally tag in Che 6 rscocc in £ile ) 

2 : CLBW.CAIA B READ ttC IZS CtU. UPCATE ; 
i t ttiai^a of foinstelng for Inpit ) 

4 t iNPirr 9 REM) JK 1 1* orwTE ate tk r rem) 

5 CR CR ." BITER NAME — > " INMTE 

6 CR ZnSrI CATE ■»> * IDKY ( hss a foOBae prcn^E ) 

7 CB ." QfTER AMOUNT — > " IDOLIAR 

8 .REC FLUSH i ( savJe this record on disk ) 

9 (list files 1 th cough the nunter in TN3 of record ) 

10 ! (X/nUT e READ TJG g DUP fl» IF CR CR OIPTY flL£ " 

11 CHOP ECSE 1+ 1 DO FORTH 1 REM) .REC LOOP E»Oir CR CR } 

12 iS 
13 

14 
15 

Finally, a few examples of formatting 

input and output routines are shown on the 
last Screen. First, it is desirable to 
clear all data in a file with a word 
'CLEAR.DATA' before entering new data. 
This particular definition clears only the 
first block, all that is necessary in this 
application. You should be able to modify 
the definition of this word to meet the 
requirements of your application and par- 
ticular implementation of FORTH. 

I use the record in a file for a 
variety of information about the file 

which T can address directly from the 
address of its first byte without using 
the field definitions or I can use spe- 
cific bytes or fields in ways other than I 
have defined them. In this example, I use 
the value in the integer at the field 'TAG' 
in the record to keep track of the last 
record currently in the file. When this 
record is cleared with 'CLEAR. DATA' , a 
value of is present in the location o£ 
'TAG' fAiich means that there are no 
records present. '0 READ' places the 
value of in the variable *RECil^' and then 
'tag' places the address on the top of the 
stack and '@' gets that value, the last 
record number used in the file. To add a 
new record, this value is incremented and 
then duplicated on the stack. The top 
copy is stored back in the field of 'TAG' 
in the record which is updated. Then 



the second copy is placed in the variable 
'REC#' and we are ready to fill in the 
information for the next record. 

A series of prompts can be formatted on 

the screen in any convenient arrangement 
as in this example. Following the desired 
prompt for each field, the previously 
defined word is used to get the informa- 
tion for the field and store it there. 
After entering a record, it is always nice 
to see the data you actually put in. This 
is done with the word ' .REC' follcwed by 
the FORTH primitive 'UPDATE' to flag the 
buffer as altered and 'FLUSH' to save the 
new record on the disk in the file. This 
assures that the image of the record which 
is displayed is the version saved on the 
disk. 

An output format can be developed in a 

similar manner. In this example I have 
included a check to see if there are any 
records in a file because the 'DO'... 
'LOOP' will always print one loop and 
peculiar output is generated if the bytes 
in the fields are all set to zero. This 
output routine presents a simple list of 
the record nuoibers and the formatted 
content of the fields. 

In conclusion, I find this approach to 
file definition is time saving and hope 
that you will find it useful. The dis- 
cussion of the FORTH utilities used to 
define a new data base file and the 
example example of handling data, provides 
some elaboration of the information in- 
cluded on the Screens. This will be a 
review for one who already has Icarnsd the 
primitives in the FORTH Model and under- 
stands how the language works, but perhaps 
the discussion of these Screens will help 
those less experienced. There is nothing 
sacred about the techniques used here. 
Modify the various words to suit your 
particular needs. It is easy enough to 
develop new formats interactively. How- 
ever, I would encourage you to utilize and 
build on the standards of the fig-FORTH 
Model. When the '79 Standards become 
generally available, it should be rela- 
tively easy to update your Screens without 
changing the format of the record file. 
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The importance of utilizing an accepted 
standard in developing programs £or 
ultimate use in a wide variety of imple- 
mentatioite of FORTH cartuot be over- 
emphasized. 

I wish to thank Bill Ragsdaie for his 
encouragement to write this discussion 

based on his presentation to the FORTH 
INTEREST GROUP at one of their monthly 
meetings last year. 

APPLICATION NOTE: 

These FORTH routines have been developed 
on a FORTH OPERATING SYSTEM for the 

HEAT?1KIT H89. This system is available 
from the MOUNTAIN VIEW PRESS, Box 4656, 
Mountain View, CA 94040. The compiled 
FORTH program image can be saved on disk 
and will be ap and running in less than 
four seconds from a cold boot. The system 
has 1024 byte blocks which also increases 
the speed of operation. 

However, after develoment, the Screens 
were loaded on a FOR'ni implementatioa 
derived from the fig-FORTH FOR 8080 
ASSEMBLY SOURCE LISTING which is available 
from the FORTH INTEREST GROUP, Box 1105, 
San Carlos CA 94070, in printed form and 
already on disk also from the M)tITAIH VIEW 
PRESS . This version has 128 byte block 
and operates in conjunction with CP/M. To 
this has been added the fig-EDITOR from 
the fig-FORTH INSTALLATION MANUAL and a 
single extension, DUMP, used to illustrate 
the appearance of the records as stored in 
a block. 

The printed session illustrated was 
made using the CP/M control P to echo the 
ouCput on the printer. The session starts 
with CP/H loaded and its usual prompt. 
The CP/M file, FORTH60.COM, is the object 
module of the fig-FORTH Model. The 
warning messages are not on Screens 4 and 
5 and the warning flag is turned off. 
Then, the Screens for the fig-EDITOR and a 
good dump routine are loaded. Finally, 
the Screens discussed are loaded . The 
file 'QEMO' is called and the application 
of some of the file utilities is illus'- 
trated. This presentation will hopefully 



assure that there are no errors in the 

printed Screens. 
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fig-TREE TELECONFERENCE 

<415) 538-3580 



If you are an active FORTH programmer, or 
just have an interest in FORTH, you will 
want to save this phone number. With your 
terminal or computer and a modem, the 
number will get you on-line to a dynamic 
data-base on FORTH. 

Want to ask a question? Want to know 
where and when the next important FORTH 
Interest Group seminar, meeting, workshop, 
or other event is going to be? The fig- 
Tree has a calendar section where you can 
find out about these events and let others 
know about yours. Want to find out about 
FORTH- re la ted software, products and 
services? 

Dial-up the fig-Tree for on-line 
information. Use any 300 or 110 baud 
modem, and type several carriasf. returns} 
then the system is self-instructing. 



FORTH PROGRAMMERS Experienced with 

mini/micro computers and peripherals to 
produce new polyFORTH systems and scien- 
tific/industrial applications. Degree 
in science or engineering and knowledge 

of FORTH essential. 

PRODUCT SUPPORT PROGRAMMER Responsible 
for maintaining existing list of soft- 
ware products, including the polyFORTH 
Operating System and Frograiming Lan- 
guagfif file management options, math 
options and utilities and their documen- 
tation. Also provide technical support 
to customers. 

PROJECT MAMAGER Supervise applications 
and special systems programming 
projects: writing proposals, setting 
technical specifications, customer liai- 
son, hands-on programming, and 
supervision □£ senior programmers. 
Extensive FORTH programming experience, 
some scientific or engineering back- 
ground and management skills required* 
Bachelors degree or equivalent* 

Contact; Mln Moore 

FORTH, Inc. 

2309 Pacific Coast Hwy. 
Hermosa Beach, CA 92054 
(213) 372-8493 



WRITERS WANTED 

ANY FORTH SUBJECT 
SEND TO: 

FORTH INTEREST GROUP 

P.O. Box 1 105 

San Carlos, CA 94070 
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INCREASING fig-FORTH 
DISK ACCESS SPEED 

by Michael Burton 

Anyone who has used CP/M and has then 
used 8080 fig-FORTH will have noticed that 
CP/M is much faster than fig-FORTH when 
reading or writing data on floppy disk- 
ettes. The reason for this apparent speed 
difference lies in the manner in vhich 
CP/M Stores its files as opposed to how 
fig-FORTH stores its screens. (Editor's 
note: Speed is also reflected in hardware 
details such as interleaved formatting and 
direct memory access. It id not neces- 
sarily a FORTH characteristic.) I shall 
attempt to explain the difference. 

A single-sided 8" diskette formatted in 
the normal manner contains 77 tracks, with 
each track containing 26 sectors with 128 
bytes of data in each sector. In order 
for the disk controller to be able to find 
a particular sector in a given track, 
header data is stored on the diskette just 
prior to each 128 byte data block - a sort 
of preamble. Among other information in 
this preamble is the sector number. A 
format program writes this information on 
each track in a consecutive manner^ in 
other words, Inmediately following the 
Index hole pulse is sector 1,2^3, 26. 

A program that reads a sector must 
first select the proper track and proper 
sector, then must read that sector's data 
and store it someplace for use. It is 
fairly easy to select the proper track and 
sector and read the data; the problem 
comes in trying to read two consecutive 
sectors. There is not enough time between 
the time when the first sector's data is 
read and the time when the next sector is 
available, to store the data from the 
first sector and request the data from the 
second sector. This means that reading 
consecutive sec tors 5 and 6 , for example , 
requires a minimum of two revolutions of 
the diskette. 

CP/M accesses files faster than fig- 
FORTH accesses screens because the files 
are not stored in consecutive sectors. 



CP/M uses a translation table to Lell it 
which sector to use. Someone f i gured out 
that i^ile storing the data from one 
sector, about five more sectors go by 
before CP/M is able to read another 
sector. So instead of storing a file in 
sectors 1,2,3 ... it uses its translation 
table and stores the file in sectors 1, 7, 
13, etc. This means that 1024 bytes of 
information can be read or written in two 
or three revolutions of the diskette 
instead of eight. 

What can be done about the manner in 
which fig-FORTH reads/writes screens? A 
CP/M-atyle translation table could be 
added to fig-FORTH, but that would make 
the diskettes, and the FORTH program, 
incompatible with the rest of the FORTH 
world. Instead, the diskettes can be 
formatted to look like a CP/H translation 
table, which is extremely easy and still 
allows compatibility. A diskette would 
look like this: 

Sector 

Old fonnatJ 1 2 3 4 5 6 7 8 9 10 11 12 13 
New fonnat: 1 14 10 23 6 19 2 15 11 3i 7 20 3 

Old format: 1^ 15 16 17 18 19 20 21 22 23 24 25 26 
Nar formst: 16 12 25 8 21 4 17 13 26 9 22 5 18 



Most format programs use an incre- 
menting register to supply the proper 
sector number when formatting. To imple- 
ment the translation schesie, a table must 
be added to the program and must be 
accessed in place of the sector register 
when formatting the diskette. 

With this new format, fig-FORTH still 
reads 'consecutive' sectors (1, 2, 3, 
etc.), but they are available sooner. 
Using the new style format, fig-FORTH 
should be able to read or write a screen 
in two or three disk revolutions instead 
of eight. 

Two simple tests were run to determine 
how this affects fig-FORTH performance: 



for™ dimensions III/2 



Page 53 



Old 



New 

Format 



Speed 

Increase 



MUSIC GENERATION IN FORTH 

by Michael Burton 



I£MI> 13 Screens: 1:28 1:17 12.5% 

OCF; 50 Scxeens: 2:24 :53 63.2% 

If you can't reformat your diskettes, 
you may choose to copy diskeCtes simu- 
lating interleaveing by this program. The 
multiple screen copy definition used for 
the second test is listed in screen 167. 

SOI # 167 
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The General Instruments programmable 
sound generator (PSG), the AY3-8910t can 
be used to produce very acceptable three 
voice music when properly programmed. 
forte's background as a device control 
language oakes it a good choice to use 
with the ?SG for music production. 

The programmable sound generator is 
capable of producing sound on three 
separate analog channels. The amplitude 
and/or envelope of each of these channels 
is also separately controllable. Although 
the PSG is used by several manufacturers 
on their music boards, the board that was 
used for the development of the attached 
music constructs is the S-100 Sound 
Effects Board produced by Digital Research 
Computers of Garland, Texas. This 
particular board contains two A.Y3-8910 
chips, allowing up to six voices to be 
generated simultaneously. 

Now, for an explanation of the music 
screens. Screen 51 consists of defini- 
tions of I/O port values and variable 
declarations. The variable ALVl is the 
melody voice amplitude (voice one) and the 
variable ALV2— 6 is the harmony voices 
amplitude (voices two through six). These 
amplitudes may be varied from (off) 
through 15. It is a good idea to keep the 
harmony amplitude about two steps lower 
than the melody amplitude, in order to 
make the melody stand out. The variable 
0VAL controls the length of the notes, 
DVAL being the length of a whole note. 
The variable IVAL controls the length of 
the slight no-tone period between notes. 
Together, DVAL and IVAL control the song's 
tempo. Experimentation is necessary with 
these two variables to produce the proper 
tempo for a particular song. 

Screen 52 contains all the definitions 
necessary to access the S-100 Sound 
Effects Board in order to play music. The 
only PSG registers currently being used in 
music generation are the tone period, 
enable and amplitude registers. Note the 
use of the 8080 fig-FORTH peculiar word 
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P! . P! simply sends a data byte to a 
particular I/O port. 

Screen 53 marks the start of the actual 
definitions used in producing a song. The 
definitions vl through v6 are used to 
select voices 1 (melody voice) through 
6. These definitions do not turn the 
appropriate voice on^ they merely select 
it so that a tone period (note) may be set 
for that voice. Voices are actually 
played only when a note duration is 
selected. The definitions vldis through 
v6dis are used to disable a particular 
voice the next time a note duration is 
executed. They do not turn a voice off if 
it is currently being played , they just 
turn it off the next time it is supposed 
to be played. 

Screens 54 and 55 define the musical 
notes. The lowest note that may be played 
is b of octave 0, and the highest note 
that may be played is b of octave 8. 

Screen 56 contains the definitions 
RINIT, VON and VOFF. RINIT initializes 
all the registers on each PSG. RINIT is 
the only place where the amplitude of the 
voices is initialized, and should be used 
before playing any music. The definitions 
VON and VOFF are used to turn all selected 
voices on and off. They are used inside 
the note duration definitions and are not 
meant to be used in a song definition. 

Screen 57 contains definitions for rest 
durations, from a sixtjr- fourth rest (fr) 
to a whole rest (wr). It also contains 
definitions for slur note durations, from 
a sixty-fourth slur (fs) to a vfaole slur 
(ws). A slur note is one that does not go 
off after its duration is finished, 
allowing a smooth transition between notes 
when desired. Screen 57 also contains 
definitions for dotted slur durations, 
from a sixty-fourth dotted slur (fds) to a 
whole dotted slur (wds). 

Screen 58 is the last of the music 
constructs screens, and contains defini- 
tions for note durations , from a sixty- 
fourth note (f) to a whole note (w). Hote 
that after the note is turned off, a 



slight delay (IVAIO is introduced so that 
the notes will be distinct from one 
another. Screen 58 also contains defini- 
tions for dotted notes, from a dotted 
sixty-fourth (fd) to a dotted whole note 

<wd). 

There is room for improvement in these 
music definitions. Control of the notes' 
envelope could be introduced to simulate 
other musical instruments, and 
restrictions imposed by the non- interrupt 
nature of the note duration generation 
could be eliminated. These exercises will 
be left to other aspiring composer/ 
programmers . 
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OPTIMIZING DICTrONARY SEARCHES 

Paul van der Eljk 
5480 Wisconsin Avenue, #1128 

Clievy Chase, MD 20015 
(301) 656-2772 

Recently, I finished the impleTnentation 
of fig-FORTH on my Radio Shack model II. 
I must admit that I did not follow the FIG 
model precisely; some high level defini- 
tions were recoded in assembler to 
Increase their speed. For example, sign 
extraction in the divide and multiply 
words gives an execution time improvement 
of a f ac tor two. These iciprovements are 
predictable and probably implemented ntany 
times already. 

One deviation from the FIG model I want 
to share with you is the structure of the 
dictionary. 

In the FIG niodel, the Link Field 
Address is stored after the last character 
of the name. Hhen (FIND) searches the 
dictionary for an entry, the lengths of 
the strings are compared. If the compari- 
son fails, and this happens a lot, the 
characters stored are scanned for a high 
bit in the last character. When the scan 
stops at the last character, we know the 
address of the LFA, because it follows the 
last character. It will be obvious that 
the time spent on searching for the LFA 
will be linear with the average numbers of 
characters stored for an entry. One way 
to get around scanning is adding an 
additional byte in every dictionary entry, 
indicating the actual number of characters 
stored. Another approach was taken by 
Robert Smith, see FORTH DIHEHSIOHS, Vol. 
1, No. 5. 

The structure I implemented puts the 
LFA in front of the Name Field Address. 
Vnien (FIND) stores the address of the NFA 
in a machine register, a search for the 
LFA is not necessary because it precedes 
the NFA directly. In addition, the char- 
acters of the entry can be stored in 
normal order, which makes changing ID. 
unnecessary. 

The new dictionary structure can 
improve compilation speed substantially. 



An application program 70 screens long 

took 210 seconds to compile; the new 

dictionary structure reduced the com- 
pilation time to 98 seconds. 



To implement the new dictionary struc- 
ture, the following words have to be 
rewritten: 

CREATE VOCABULARY LFA NFA PFA . 
(FIND) has to be rewritten as well, but is 
not given here because it is machine 
dependent . 



u ( U'A prccei^itH NTA 1 of 2: 

1 UEX 

2 : CUthTE -FIRU ir DKOr NFA ID. 4 mSSAf^ SPACtl llii:!! 

J ( check iintniie In CUhREtiT siiil CONTKlir ) 

'i lltRE CS NTnril ^ mN Ml ( savtt nucihcc cl discs sluri^<l > 

5 HKKK OAO Tocci.i; rii:iii; k + tiiii' mil Tor.ci.i; 

^ ( sDikirJ^t^ u[td d[^i Inti tc^r Llru ) 

7 DUP 2+ « 1+ -CHCVE ( nive dlH (y dijuil to lllBcrt LFA ) 

a iAmr iikke i here tt cwrkkkt << t 

9 R> 3 + ALLOT IIEHE 2+ , ; 
10 

11 I tVA 3 - -1 TRAVettSE : 

12 : LTA' )rn 1 - ; 

n : [>FA 1 TKAVERSe 3 * ; 
14 

T 5 ~ 



( LFA (ireceeda NFA 2 of 2: Paul ■mn dKr El 3k dprll-12-lWl ) 

1 ! VOCAiUURI <IUILDS CintREUT f 2* , CM>»1 

2 liERR VOC-LtHK , VOC-LIHi; ! 
} l»ES> COHTRXT I ; 

i 
S 

6 ( Cho fci]][.w1nL< crl^.i-.iii' L, -Fl;:n f;|.r-"rir- i.ri sittt J^MWiry d-'.»f^'UL's ) 

7 ( in case [lie air^(Ji.:.'i .m i:-,-r.' r3.:' '.or. ii . . i iru-s .LEb tr-.- ^■..J^lt^, ) 

S C the chn^n^c Js not rjL'.^ti.'i:.rii v !i>r ! In' ;l4!^« d 1 1 1 iMi^ry sLriictiirf^ ) 
9 

10 : *FiiJi) Bi. wimi ijtKi: «i:i'itKT ;^ (Finn dup 0- 

11 IF UROP UTEST COHTEICT 9 V OVLt - 
li W UERE SNAP (FIKD) 

13 ELSE mor 

14 THEN TIIEM i 

15 OECIMAt, iS 



MEETING 



POTimc FORTH INTEREST GROUP MEETING 

Program was presented by Paul van 
der Eijk on IQS - An Interactive Query 
System, He described this system which 
lets the user create, edit, search and 
list a file without writing a program. 

The next meeting is Tuesday, Aug. 
4, 1981 at Lee Center, Lee Hiahway at 
Lexington St., Arlington, Virginia from 
7:00 - 9:00pm. 
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TRACING COLON-DEFINITIONS 



Xmprovement s : 



Paul van der Eijk 
5A80 Wisconsin Avenue, #1128 
Chevy Chase, HD 20015 
(301) 656-2772 

This short article describes a few 

simple words to trace colon definitions. 
When I am completely lost trying to find a 
bug in a FORTH program, I use colon 
tracing to get a print-out of all words 
executed together with a few parameters on 
the data-stack. Such a priat-out is often 
enough to s po t the bug ; in add i t ion , it 
gives some insight how many times certain 
words are executed which can help to 
improve the execution time of a program. 

How it works: 

A technique to trace colon 
definitions is to insert a tracing word 
directly after the colon. 

i.e., : TEST II 12 ; TEST can be traced by 
having a definition compiled as if it 
were: 

; TEST (TRACE) Tl T2; 

When (TRACE) executes, the address of 

the word following it is on the return 
stack. Subtracting two from this address 
will give the parameter field address, 
from which we can reach the name field 
address using the word NFA. In order to 
enable/disable the trace ouput, the varia- 
ble TFLAG is used; a non-zero value will 
enable the output and a zero value will 
suppress the trace output. 



1. If we save in (TRACE) the value of the 
variable OUT and direct output to the 
line-printer, words doing formatted 
terminal output can be debugged 
effectively. 

2. A variable TRACE is introduced to 
control the insertion of the word 
(TRACE) in the new definition for the 
colon. 

If the value of TRACE equals zero, 
(TRACE) is not inserted, if the value is 
non-zero (TRACE) will be inserted. 

This enables tracing code to be 
inserted in a selective way by changing 
the value of TBACE preceding a colon 

definition. 



I.e. 



TRACE ! : TESTl Til T12 j ( TESTl will 

not be traced ) 

1 TRACE I : TEST2 T21 T22 ; { TEST 2 can 
be traced ) 



u ( itdi:e tuliin uucdti fiul van der Zijh apill-l 2-lSei ) 

I FOKTII SEFIHITIONE 

1 VAKIAiLE TFLAC <csatroli trace Miipuc ) 

3 : <TRACE> ( give trace out put* to be Inserted aa first word ) 

4 TFIAG C trace output If non-zero ) 
IF CR B 2 - m Wr ID. ( back to FFA NFA far nana ) 

C9 31 AND 32 EHAF - SPACES { t*i apacM to nnu ) 
-2 I, JXI Sri I * f B ,K -I -ILOOF C shOH (tack ) 



s 

7 
S 

9 1 
10 
II 
IJ 

13 ( example: trace folloulog 

14 I t I ; 

15 : CI CI : 



r ( radaflAKl to iwrt trace nerd aft«r colon > 

)E3!Ee KSt CURRENT S COOTEXT I eSEAIE 
• (THACE) CFA DUF 9 HBSE 2 - t , ) ; IHISDIATE 

of 1 and C! ) 



The insertion of the (TRACE) word can 
be automated if we redefine the definition 
of the colon. 

The colon is redefined to insert the 
runtime procedure for the colon followed 
by the address of (TRACE). 

Note that the address of the colon 
runtime procedure is obtained by taking it 
from the code field address of the word 
(TRACE). 



MEETING 

NEW YORK CHAPTER 

First meeting of the New York Chapter 
was held on June 23, 1981. There were 
five FIG members and one non-FIG person 
in attendance. The second meeting is 
scheduled for August 25, 1981 and sub- 
sequent meetings every other month. 
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FORTH, rnc. NEWS 



We ' re G rowing 

FORTH, Inc. expects to double its staff 
within the next year to acconmodate 

increased product demand and iipplicatLons 
programming. (See job openings listed 
elsewhere in this publication. ) 

The latest addition to our staff is 
programmer Charles Curley. Curley is a 
former freelance writer and progrannner who 
edits and publishes the Ohio Scisncl E 
Users' newsletter . 

"I put FIG FORTH up in cay own Ohio 
Scientific C2-8P DF and liked it/' he 
comments, "but I wanted to learn FORTH 
systematically, and I figured this was the 
best place to do that. At FORTH, 1 get 
paid to do what I like to do." 



Industries' rotating longitudinal- stretch 
forming machine. This 80- foot- long, 
three-story-high giant weighs over a 
million pounds and pulls 750 tons. It is 
used to form, stretch, bend and stretch 
wrap aluminum, steel and titanium sheet 
metal or extrusion parts (typically panels 
used in C5A-sized aircraft). 

An LSI-11 detects the yield point of 
the metal and maintains a pre-set stress 
as the operator directs the initial opera- 
tion; it then takes over full control and 
manufactures identical production parts. 
This computer program, written in poly- 
FORTHf coordinates the motion of nine 
simultaneously moving servo-controlled 
axes with a re solution o f . 008" . The 
system also displays on a CRT the position 
of all axes and a graph of the stress 
C'drw'e showing the yield point o£ the 
metal. Mike La Manna, Jim Dewey and Gary 
Friedlander were involved in the project. 



Other TSews 

President Elizabeth D. Rather was a 

member of a panel on programming languages 
for small computers at the NCC Conven- 
tion. She was featured in both Computer- 
world and Computer Business News . 

Programmer Mike LaManna has relocated 
to Long Island, Hew York, and is working 
on the 68000 polyFORTH. It should be 
available midsunmer. 



S tartiag F ORTH Pr e -prin t s A vai lable 

A few unsigned preprints of S tarting 
FORTH are available now for $30 (plus 6% 
state tax). The Prentice-Hall edition 
will be available In book stores September 
8. To order a preprint, send a check to 
Winnie Shows at FORTH, Inc., 2309 Pacific 
Coast Hwy., Hermosa Beach, CA 90254 or 
you may call her at (213) 372-8493 with a 
VISA or HASTERCHAR6E number. 



PolyFORTH Palo Alto Users Groups Starting 

Dr. C. H. Ting has volunteered to Chair 
the Palo Alto Thread □£ the FORTH Users 
Group for the first thrat; months. Anyone 
Interested in joining the Users Group may 
contact Dr. Ting at Lockheed Missiles aad 
Space Corp., (408) 742-1101 or Al Krever 
at FORTH, Inc. (213) 372-8493. 



Rece nt Appli cations 

FORTH, Inc. has produced a computer 
numerical control progr^ for L & F 



l^ORTH, Inc. Seminars, Works hops ^ Gliasses 
Location Seminar Workshop 



Chicago 
Boston 
Boulder, CO 
Los Angelea 
San Diego 



August 4 
August & 
September 1 
October 15 
October 22 



August 5 
August 7 
September 4 
October 16 
October 23 



An introductory class in polyFORTH 

programming will be offered August 10-14 
at FORTH, Inc. Call Kris Cramer for 
details (213) 372-8493. 
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FORTH VENDORS 



The following vendor6 have veraiona 
of FOKTH available ok are 
eontultantat 

UPiU MICBO 

Ptofeaaiiatial HanagcMat Service a 
724 Araitradero Bd. fl09 
Palo Alto, CA 94306 
<4IS) 8S8-2218 

Sierra Conputar Co. 
617 Marie HE 
Albuquerque, MH 87113 

APPLE 

lUS CCap'ti Software) 
281 Arlington Avenue 
Berkeley, CA 94704 
<415) 525-9452 

George Lyons 
280 Henderson St. 
Jersey City, NJ 07302 
(201) 451-2905 

MieroMotion 

12077 tfilshire Blvd. #506 
Los Angeles, CA 90025 
(213) 821-4340 

GIDSS COHPILUS 

RautiluB Syatena 
P.O. Box 1098 
Santa Cruz, CA 95061 
C408) 475-7461 

potyFOKTfl 

FORTH, Inc. 

2309 Pacific Coast B«y. 
Hermosa Beach, CA 90254 
(213) 372-8493 

LYNX 

3301 Ocean Park #301 
Santa Monica, CA 90405 
(213) 450-2466 

K & B Design 

B20 Sweetbay Drive 

Sunnyvale, CA 94086 

Micropolis 

Shaw Labs, I.td. 
P. 0. Box 3471 
Haywsrd, CA 94540 
(415) 276-6050 

¥otth Star 

The Software Works, Inc. 
P. 0. Box 4386 
Mountain View, CA 94040 
<408) 736-4938 



OSl 

Consumer Coaiputers 
8907 LaMesa Blvd. 
LaHeaa, CA 92041 
(714) 696-8088 

Sofcirare Fed e ration 
44 Onivexsity Di;. 
Arlington Height*, IL 60004 
(312) 259-1355* 

Technical Product! Co. 
P. 0. Box 12983 
Gainsvilla, TL 32604 
(904) 372-8439 

Tom Zimtoer 

292 Falcato Ur. 

Milpitae, CA 95035 

6800 t, 68Q9 

Kenyon Microsyateoa 
3350 Walnut Blvd. 
Houston, TX 77042 

(713) 978-6933 

PDP-11 

Laboratory Software Systems, Inc. 
3634 Mandeville Canyon Rd. 
Los Angeles, CA 90049 
(213) 472-6995 

John S. Jamea 
P. 0. Box 348 
Berkeley, CA 94701 

m-80 

Miller MicroGonputer Services 
61 Lake Shore Sd. 
Natlek, MA 01760 
(617) 653-6136 

The Software Para 
P. 0, Box 2304 
Reston, TA 22090 

Siriua Syatems 
7528 Oak Ridge Hwy. 
KnoKville, TK 37921 
C615> 693-6583 

KIM 

Eric C, Rehnke 

540 S. Ranch View Circle #61 

Anaheim Hill*, CA 92087 

8080/Z80/CP/H 

Laboratory Ki crosystema 
4147 Beethoven St. 
Los Angeles, CA 90066 
(213) 390-9292 

Mitchell E. Tivin Engineering Co. 
9575 Geneaae Ave. #E-2 
San Diego, CA 92121 

(714) 455-9008 

Ceraawlont 

Benry Laxen 
1259 Cornell 
Berkeley, CA 94706 
(415) 525-8582 



ApflieatiMi Paekagea 
InnoSya 

2150 Shattuck Avenue 
Berkeley, CA 94704 
(415) 843-8114 

Deciaion Sesourcea Corp. 
3S203 Ridgefem Ct. 
Raneho Palo Verde, CA 90274 
<213) 377-3533 

PicMaee, Board* and Macliiiiea 

Da tr icon 
7911 HE 33rd Dr. 
Portland, OK 97211 
(503) 284-8277 

Forward Technology 
2595 Harcxn Avenue 
Santa Clara, CA 95050 
(408) 293-8993 

Rockwell International 
Microelectronica Sevicea 
P.O. Box 3669 
Anaheim, CA 92803 
(714) 532-2862 

Zendex Corp. 

6398 Dougherty Rd. 

Dublin, CA 94566 

Variety of FORTH Producta 

Interactive Computer Syateow, Inc. 
6403 Di Harco Rd. 
Tampa, FL 33614 

Mountain View Pre** 
P. 0. Box 4656 
Maun Cain View, CA 94040 
(415) 961-4103 

Super soft Aaaociatea 
P.O. Box 1628 
Champaign, IL 61820 
(217) 359-2112 

Consultant a 

Creative Solutiona, Inc. 
4801 Randolph Kd. 
Rockville, HD 20852 

Dave Boulcon 
581 Oakridge Dr. 
Redwood City, CA 94062 
(415) 368-3257 

Elmer W. Fitcery 
110 Mc Gregor Avenue 
Mt. Arlington, NJ 07856 
(213) 663-1580 

Co FORTH 
504 Lakenead Hay 
Redwood City, CA 94062 
(415) 366<6124 

Irmer Acceaa 
P. O. Box 888 
Belmont, CA 94002 
(415) 591-8295 
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DECOMPILER FOR SYN-FORTH 



SYN-l User's Group 
PO Box 315 
Chico, CA 95927 

The following decompiler works very 
well except that because INTERPRET is not 
remembered by ;S nor CjCODE-) nor QUIT, 
this FORTH decompiles loop t 



: 
1 

i 

7 
• 

9 
lO 
11 
11 

n 

14 



uoui.To.iKaiiiriu Kcniriu 



OUTPUT : m ^A.CWRR } IQU,T«-BCCaff . 
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OK 
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ENGLISH FORTH APPLICATION 



Golden River company has been using FORTH 
for the RCA 1802 for the last three years, 
to fill a need for a low cost development 
and prototyping tool with potential for 
being used at remote sites i^ere power is 
not easily available* 

The most interesting concept in the 
equipment is it uses 32K of dynamic RAH as 
storage space for up to 30 screens of 
source FORTH code. The equipment is 
designed with low power in mind and is 
normally used like an electric car — it is 
usually kept connected to an AC source, 
although it has nine-days battery life and 
can be used remotely* 

The product is currently being shipped in 
Europe and will be introduced in the U.S. 
market through Golden River Corporation, 
7315 Reddfield Court, Falls Church, VA 
22043. 

For more information, coatactt 

Golden River Company, Ltd. 
Churchill Road 

Bicester, Oxfordshire 0X6 7X1 
England 

Fhone: Bicester (08692) 44551 
Telex: 83147 VIAOR G 'GRIVER' 



4 at 

LIST 



GET READY I 
FOBML's CQMIHG! 
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NEW PRODUCT 
ANNOUNCEMENT FORMAT 



In the interests of comparison imiform- 

ity and completeness of data in new 
product announcements, FORTH DIMENSIONS 
requests that all future new product 
announcements use the following format: 

1. Vendor lSam& (company) 

2> Vendor mailing address 

3. Vendor street address if PO Box. 

Used as mailing address. For 
reference file. 

4. Vendor area code and telephone 
number 

5. Person to contact 

6. Product natne 

7. Brief description of product 
uses/ features 

8. 

9. 

10. 
11. 
12. 
13. 

14. 
15. 



16. 



active installations as of writing- 
no unre teased products) 

17. Product price 

18. What price includes (shipping, tax, 
etc.) 

19* Vendor warranties, post sale 
support, etc. 

20. Order turn-around time 



MEETINGS/EVENTS 
ANNOUNCEMENT FORMAT 

In order to have uniformity and insure 
complete information in all meeting and 

special event announcements, FORTH 
DIMENSIONS requests that you use the 
following format: 

1. WHO is holding the event (organi- 
zation, club, etc.) 

2. HB&T is being held (describe 
activity, speakers' names, etc.) 

WHEN is it being held (days, times, 
etc.; please indicate if it is a 
repetitive event — monthly meeting 
etc.) 

WHEItE is it being held (be as com- 
plete as possible — rotKii number, 
etc.) 

WHY is it being held (purpose, 
objectives, etc.) 

REMARKS and SPECIAL NOTES (is there 
a fee, are meals/ refreshments being 
provided, dress, tools, special 
requirements, pre-requisites, etc.) 

PERSON TO CONTACT 

PHONE NUMBER/ ADDRESS (includs area 
codes, times to call and give work 
and home numbers in case we need 
clarification) 



List of extras included (editor, 
assembler, data base, games, etc.) 

3, 

List of machines product runs on 
Memory requirements 

Number of pages in manual 4. 

Tell what manual covers 

Indicate whether or not manual is 5. 
available for separate purchase 

If manual is available, indicate 6. 
separate purchase price and whether 
or not manual price is credited 
towards later purchase 

Form product is shipped in (must be 7. 
diskette or ROM — no RAM only or tape 
systems) 8. 

Approximate number of product 
shipments to date (product must have 
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FORTH STANDARDS CONFERENCE 
ROCHESTER, NY - SPRING 1981 
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Conference 
Purpose : 



Attendee 

Selection 

Priority: 



1981 FORML CONFERENCE 

A.siIomar, California November 25-27, 1981 
ATTENDEE REGISTRATION FORM 

The 1981 FOEML (FORTH Modification Laboratory) is an advanced seminar 
for the presentation of FORTH language papers and discussions* It is 
not intended for beginning or casual FORTH programmers. 

The FORML Conference is limited to 60 FORTH programmers (approx. 30 
family and other non-participants accommodations are also available). 
The priority for selection of attendees is: 

Ist - Paper presenters who send in their 100-word abstract by the 
deadline of September 1, 1981 •* 

2nd - Poster presenters who send in their 100-word abstract by the 
deadline of September 1, 1981.* 



Registration 
Form, Complete 
and return to: 

FORML 

PO Box 51351 
Palo Alto, CA 
94303 



3rd - FORTH prograumers who wish to attend only. Depending upon the 
response of paper and poster sessions there may or laay not be 
room for non-presentors,* 

*The F08ML Conference Referees will make the final decisions on 
paper/poster presentors which will in effect determine attendance and 

priority positions. 



NAME 



ADDRESS 



CITY 



STATE 



ZIP 



COUNTRY 



PHONE (Day) 

I have been programming in FORTH for; 
Types of CPU's and/ or computers: 



_(Evening)_ 
(years) 



(months) 



I have authored the following papers and/ or articles about FORTH: 



Accommodations 
Desired: 



I expect to: 



present a paper, 
chair a section. 



present a poster session 
non-presentor 



My topic will be:_ 



Rooms at Asilomar include meals (including a huge Thanksgiving) and the 
price of the Proceedings is included in participant costs. 



Myself 



Double $110.00 



Single $150.00 



Wife/Husband/Friend ($85.00 for room and meals) 



I will arrive the afternoon or night before, please reserve a room 
for: # on Tuesday, November 24 @ $35.00 double 

or S47.00 single 



FOR MORE INFORMATION CALL: ROY MARTENS (415) 962-8653 
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LATE NEWS 



BO RK LUND & ASSOCIATES 
3903 Carolyn Ave 
Fairfax, VA 22031 
{703)273-5663 



Mr. Roy C» Martens 



June 29, 1981 



Forth Interest Group 

P.O. Box 1105 

San Carlos, OA 94070 

Sirs: 

Tsk, Tsk, TskI You really did it this time! Tsk, Tsk, Tsk. 
The product review of Timin Eng. version of FORTH is totally 
beside the point,. .what you did, was crucify one of the finest 
versions of FORTH currrently available on the market, namely the 
Laboratory Microsystems, Z--80 FORTH. 

I bought Laboratory Microsystems Z-80 Forth about 3 months 
ago, and was ecstatic with what I had bought for a paltry $50. 
When I read your product review, 1 tried the same definitions on 
my 4 KHS system and found that all times were approximately 2-5% 
less than your comparative data for Timins 8080 ve rsion. ..there- 
fore with the differing CPU clock rates of 4MHz for my and 6Khz 
for Timins systems on which the Laboratory Microsystems Z-80 
versions were compared (how convenient is was tried on Mr. Timins 
sysfceras) the S-80 version should reflect benchmark times 
approaching 30% better than those cited in the comparison test. 
I would have thought that FORTH DIMENSIONS would have staff 
expertise of a bit higher quality than that reflected in the 
product review article. 

As for the tip-toeing disclaimers via the Editors Comment... 
hey, it just won't washl 

I think that FORTH DIMENSIONS owes a yg c y l^rgg apology to 
LABORATORY MICROSYSTEMS, and ^ least a full page of space to try 
to counter the damage you have done to Z-80 FORTH; or will you 
allow the old adage that "the truth never catches up to the lie", 
prevail? FORTH DIMENSIONS... Shame! Shame! Shame! 



Publisher's Comment: The following letter was received in teferenca to a Product Re- 
view by C. K. Ting In EORTH DINENSIONS, IIl/l, page 11-12, which compared some bench 
marks between CP/M FORTH from Tlmln Engineering and Z-80 FORTH from Laboratory Micro- 
systems. We are printing this letter in its entirety for several reasons: to correct 
any unintentional damage to Laboratory Microsystems; to ask our members whether they 
desire comparisions between FORTH and other languages and between FORTH products; If 
we are to do comparisions then it will have to be by volunteers since we do not have 
a staff, it then becomes a problem of who and how. Any volunteers? 




Glenn A. Burklund 
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How to form & FIG Chapter: 

1. You decide on a time and place for 
the first meeting in your area. 
(Allow &t least 8 weeks for steps 2 
and 3.) 



Mew England 
Boston 

1st Wed FIG Meeting, 7:00 p.m., Mitre 
Corp., Cafeteria, Bedford, MA. 
Gall Bob Demrow, (617) 389-6400, 
xl98. 



2. Send FIG a meeting announcement on 
one side of 8-1./2 x 11 paper (one 
copy is enough) . Also send list of 
ZIP numbers that you want mailed to 
(use first three digita if it works 
for you) . 

3. FIG will print, address and mail to 
members with the ZIP'S you want from 
San Carlos, CA. 

4. When you've had your first meeting 
with 5 or more attendees then FIG 
will provide you with names in your 
area. You have to tell us when you 
have 5 or more. 

Horthern California 

4th Sat FIG Monthly If ee ting, 1:00 p.m., 
at Southland Shopping Ctr., 
Hayward, CA. FOSML Workshop at 
10:00 a.m. 



Southiirn 



. iirnia 



Los Angeles 

4th Sat FIG Meeting, 11:00 a.m., All- 
state Savings, 8800 So. 
Sepulveda, L.A. Call Phillip 
Wasson, (213) 649-1428. 

Orange County 

3rd Sat FIG Meeting, 12:00 noon. Fuller- 
ton Savings, 18020 Brockhorst, 
Fountain Valley, CA. (714) 896- 
2016. 

San Diego 

Thur FIG Meeting, 12:00 noon. Call 

Guy Kelly, (714) 268-3100, 
X 4784 for site. 

Northwest 



Seattle Chuck Pliske or Dwight Vanden- 
burg, (206) 542-8370- 

Oregon 

2nd Sat FIG Meeting, 1:00 pm. Computers & 
Things, 3460 SW 185th "D", Aloha, 
Eric Smith, (503) 642-1234. 



Boston 

3rd Wed MMSFORTH Users Group, 7:00 p.m., 
Cochituate, MA. Call Dick 
Miller, (617) 653-6136 for site. 

Southwest 

Phoenix Peter Bates at (602) 996-8398. 
Tulsa 

3rd Tues FIG Meeting, 7;30 p.m., The 
Computer Store, 4343 So. Peoria, 

Tulsa, OK. Call Bob Giles, 
(918) 599-9304 or Art Gorski, 
(918) 743-0113. 

Texas Jeff Lewis, (713) 719-3320 or 

John Earls, (214) 661-2928 or 
Dwayne Gustaus, (817) 387- 
6976. John Hastings (512) 835- 
1918. 

Mid Atlantic 

Potomac Paul van der Eijk, (703) 354- 
7443 or Joel Shprentz , ( 703 ) 
437-9218. 

Hew York Tom Jung, (212) 746-4062. 

Midwes t 

Detroit Dean Vieau, (313) 493-5105. 

Foreign 

England FORTH Interest Group, c/o 38, 
Worsley Road, Frimley, Camber- 
ley, Surrey, GU16 5AU, England 

Japan FORTH Interest Group, Baba-bldg. 

8F, 3-23-8, Nishi-Shimbashi, 
Minato-ku, Toyko, 105 Japan. 

Canada 

Quebec Gilles Paillard, (418) 871-1960 
or 643-2561. 

West Germany 

Wolf Gervert, Roter Hahn 29, D-2 
Hamburg 72, West Germany, (040) 
644-3985. 
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FORTH INTEREST GROUP 
MAIL ORDER 



FOREIGN 
USA AIR 

n Membership in FORTH INTEREST GROUP and Volume 111 (6 issues) of $15 $27 

FORTH DIMENSIONS. 

□ Volume II of FORTH DIMENSIONS (6 issues) $15 $18 

□ Volume I of FORTH DIMENSIONS (6 Issues) $15 $18 

□ fig-FORTH installation Manual, containing the language model of $15 $18 
fig-FORTH, a complete glossary, memory map and installation instructions 

□ Assembly Language Source Listings of fig-FORTH for specific CPU'S and 
machines. The above manual is required for installation. Check appropriate 
box(es) . Price per each. 

O 1802 □ 6502 r 6800 6809 

□ 8080 D 8086/8088 □ 9900 □ APPLE II 

□ PACE □ ALPHA MICRO □ PDP-11 □ NOVA $15 $18 

□ PROCEEDINGS 1 980 FORML (FORTH Modification Lab) Conference $25 $35 

□ PROCEEDINGS Spring 1981 FORTH Standards Team Conference $25 $35 

□ FORTH-79Standard, a publication of the FORTH Standards Team $15 $18 

□ UsingFORTH, by FORTH, Inc. This is the best users manual. $25 $32 

□ Kitt Peak Primer, by Stevens. An in depth self -study primer. $25 $35 

□ BYTE Magazine Reprints of FORTH articles, 8/80 to 4/81 $ 5 $10 

□ FIG T-shirts: J Small Medium : > Large ^. X-Large $10 $12 

□ -Poster/ 1981 Calendar, Aug 1980 BYTE cover. 18x 22" $ 3 $ 5 

□ FORTH Programmer's Reference Card. If ordered separately, send a FREE 
stamped, addressed envelope. 

TOTAL $ 



NAME MAIL STOP/APT_ 



ORGANIZATION (If company address) 

A D D RESS 

CITY STATE ZIP COUNTRY 

VISA # MASTER CHARGE * 



Expiration Date (Minimum of $10.00 on charge cards) 

Make check or money order in US Funds on US bank, payable to: FIG. All prices include postage. No 
purchase orders without check. 

ORDER PHONE NUMBER: (415)962-8653 



FORTH INTEREST GROUP PO BOX 1 1 05 SAN CARLOS, OA 04070 




BULK RATE 

U.S. rasTAeE 

PAID 
fwm\i No. ^1 
MlK. Vl«w, CA 



FORTH INTEREST GROUP 

P.O. Box 1106 

San Carlos, CA 94070 



Address Correction Requested 



